home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / DEV / I-Z / TransSkel.cpt / miniSkel.pas < prev    next >
Pascal/Delphi Source File  |  1987-01-11  |  1KB  |  38 lines
  1. {    TransSkel demonstration:  Minimal application}
  2.  
  3. {This program does nothing but put up an Apple menu}
  4. {    with desk accessories , and a File menu }
  5. {    with a Quit item . The user can run DA 's until Quit is selected or command-Q is typed.}
  6.  
  7. {The project should include this file , TransSkel.pas}
  8. { ( or a project built from TransSkel.pas ) , MacPasLib and MacTraps .}
  9.  
  10. {27 June 1986 Paul DuBois}
  11. { 11 January 1987 Owen Hartnett    }
  12. {Ωhm Software Co.  163 Richard Drive, Tiverton, RI 02878    }
  13.  
  14.  
  15. PROGRAM miniSkel;
  16.  
  17.  
  18.     USES
  19.         TransSkelpas;
  20.  
  21.     VAR
  22.         m : MenuHandle;
  23.  
  24.     PROCEDURE DoFileMenu (item : integer);    { ignored - there's only quit            }
  25.  
  26.     BEGIN
  27.         SkelWhoa;                                        { Tell SkelMain to quit                }
  28.     END;
  29.  
  30. BEGIN
  31.     Skelinit;                                            { Initialize                                }
  32.     SkelApple('', NIL);                            { Handle Desk Accessories            }
  33.     m := NewMenu(2, 'File');                        { Create Menu                            }
  34.     AppendMenu(m, 'Quit/Q');
  35.     SkelMenu(m, @DoFileMenu, NIL);                { Tell Transkel to handle it            }
  36.     SkelMain;                                        { loop til quit selected                }
  37.     SkelClobber;                                    { clean up                                }
  38. END.